home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Xtras
/
progdisk.d64
/
monopole
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-07
|
27KB
|
763 lines
20 REM MONOPOLE CBM-64
40 REM TIM BORION & SAL OEPER-8/12/82
60 PRINT"[147]":POKE53280,0:POKE53281,0:CLR:GOSUB3520
80 PG$=" BLACK, LT. BLUE, MAROON, ORANGE, RED, YELLOW, GREEN, DK. BLUE"
100 DIMPN$(42),D(42,1),CH$(16),CC$(16),P(42,9),PT$(42),C$(42),PS(42),H(42),MG(42)
120 DIM P$(2),PL(2),O(2),JT(2),M(2),CJ(2)
140 PRINT"[158] [170][191] [191][146][180][170][183][183][183][180][170][191] [180][170][183][183][183][180][170][183][183][208][170][183][183][183][180][170] [207][183]"
160 PRINT" [170] [191][191][146] [180][170] [180][170] [191] [180][170] [180][170][175][175][186][170] [180][170] [204]"
180 PRINT" [170] [180][170] [180][170] [191] [180][170] [180][170] [170] [180][170] [207]"
200 PRINT" [170] [180][170][175][175][175][180][170] [191][180][170][175][175][175][180][170] [170][175][175][175][180][170][175][175][175] [204][175]"
220 PRINT" DURING THE GAME:"
240 PRINT"HIT R TO ROLL DICE OR T TO CHECK"
260 PRINT"YOUR BANK AND PROPERTY STATUS."
280 PRINT"ANSWER YES OR NO TO MOST QUESTIONS."
300 PRINT"TO DETERMINE A WINNER, FIRST MORTGAGE":PRINT"ALL OF YOUR PROPERTY."
320 PRINT"THE WINNER IS DETERMINED BY MONEY[146] ONLY."
340 PRINT"YOU MUST REMEMBER YOUR PROPERTY HOLDINGSBY THEIR COLOR.":GOSUB3840
360 POKE53280,1:PRINT"[147][158]"
364 PRINTTAB(5)" [146]"
365 PRINTTAB(5)" [158]NOW SELECT YOUR GAME OPTIONS: [146]"
366 PRINTTAB(5)" [146]"
380 PRINT"DO YOU WANT THE PROPERTY AUCTION RULE?"
400 INPUT "(TYPE YES OR NO AND PRESS RETURN) ";Q$
420 IFLEFT$(Q$,1)="Y"THENAF=1
440 PRINT"DO YOU WANT THE FREE PARKING JACKPOT?"
460 INPUT "(TYPE YES OR NO AND PRESS RETURN) ";Q$
480 IFLEFT$(Q$,1)="Y"THENPF=1:FP=500
500 POKE53280,0:PRINT"[147]"TAB(5)"[158] [146]"
520 PRINTTAB(5)"[158] [158] [146]"
540 PRINTTAB(5)"[158] PLEASE WAIT WHILE I SET UP. [158] [146]"
560 PRINTTAB(5)"[158] [158] [146]"
580 PRINTTAB(5)"[158] [146]"
600 M(1)=1500:M(2)=1500:PL(1)=1:PL(2)=1:DV=2
620 CD$="":CR$=""
640 ZQ=RND(-TI):X1=8:Y1=10:X2=23:Y2=10:RX=6:RY=18:TN=832:TT=886
660 E$=" [146]":RM$="HIT 'R' OR 'T'[146]"
680 FORI=1TO4:P(6+((I-1)*10),8)=100:NEXT:P(13,8)=75:P(29,8)=75
700 CH=INT(RND(1)*16)+1:CC=INT(RND(1)*16)+1
720 FORI=1TO41:FORJ=0TO1:READD(I,J):NEXT:NEXT
740 P$(1)=" PLAYER 1[146]":P$(2)=" PLAYER 2[146]"
760 FORI=1TO41:READPN$(I):NEXT
780 FORI=1TO41:READPT$(I):IFPT$(I)<>"P"THEN820
800 READC$(I):FORJ=1TO9:READP(I,J):NEXTJ
820 NEXTI
840 FORI=1TO16:READCH$(I):NEXT:FORI=1TO16:READCC$(I):NEXT
880 POKE54277,79:POKE54284,79:POKE54291,79
900 POKE54278,248:POKE54286,248:POKE54292,248
920 POKE54276,33:POKE54288,33:POKE54290,33
940 G(1)=54272:G(2)=54273:G(3)=54279:G(4)=54280:G(5)=54286:G(6)=54287
960 FORI=1TO6:POKEG(I),0:NEXT
980 POKE54296,15:IFPEEK(832)<>160THENGOSUB13120
1000 GOSUB2980
1020 FORPK=1TO2:POKED(1,PK-1),48+PK:O(PK)=D(1,PK-1):PT=PK:NEXT
1040 GOSUB1380:GOSUB3580:IFR1=R2THEN1040
1060 PT=(R1>R2)+2
1080 POKED(PL(1),0),49:POKED(PL(2),1),50
1100 PT$=STR$(PT)
1120 MS$="PLAYER"+PT$+" STARTS[146]"
1140 X=RX:Y=RY:Z$=MS$:GOSUB3480:FORDE=1TO1500:NEXT:Z$=E$:GOSUB3480:GOTO1560
1160 DV=2:MF=0:JB=0
1180 IFPL(PT)=41THEN1380
1200 JT(PT)=0
1220 GOSUB3580:DF=1
1240 IFDB=3THENSYSTN:GOSUB6780:SYSTT:GOSUB13300:GOTO1440
1260 FORM=1TODR:PL(PT)=PL(PT)+1
1280 POKEO(PT),160:IFPL(PT)>40THENPL(PT)=PL(PT)-40:SYSTN:GOSUB3780:SYSTT
1300 POKED(PL(PT),PT-1),48+PT
1320 O(PT)=D(PL(PT),PT-1)
1340 FORT=1TO50STEP6+PT:FORI=1TO6:POKEG(I),T:NEXT:NEXT
1360 FORI=1TO6:POKEG(I),0:NEXT:NEXTM
1380 POKED(PL(PT),PT-1),48+PT:GOSUB13300
1400 SYSTN:GOSUB3920:SYSTT:GOSUB13300:IFM(PT)<0THENGOSUB12780:SYSTT
1420 IFPL(PT)=11THENPOKED(41,PT-1),160:POKED(11,PT-1),48+PT
1440 IFJBTHENJB=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO1260
1460 IFMFTHENMF=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO1380
1480 IFJETHENJE=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO1560
1500 IFJFTHENJF=0:POKED(PL(PT),PT-1),48+PT:POKEO(PT),160:O(PT)=D(PL(PT),PT-1)
1520 IFDBTHEN1560
1540 PT=3-PT
1560 Z$=P$(PT):X=RX:Y=RY-1:GOSUB3480
1580 Z$=RM$:X=RX:Y=RY:GOSUB3480
1600 GETBC$:IFBC$<>""THEN1600
1620 GETA$:IFA$=""THEN1620
1640 IFA$="T"THENSYSTN:GOSUB8740:SYSTT:GOSUB13300:GOTO1560
1660 Z$=E$:X=RX:Y=RY:GOSUB3480
1680 GOTO1160
1700 DATA1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921
1720 DATA1959,1958,1956,1955,1953,1952,1950,1949,1944,1904
1740 DATA1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425
1760 DATA1346,1347,1264,1265,1184,1185,1104,1105
1780 DATA1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045
1800 DATA1047,1048,1130,1131,1053,1054,1096,1097
1820 DATA1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618
1840 DATA1697,1698,1777,1778,1857,1858,1906,1907
1860 DATA">GO<[155]","[155]MEDITERRANEAN AVE.[155]","[158]COMMUNITY CHEST[155]","[155]BALTIC AVE.[155]"
1880 DATA"[154]INCOME TAX[155]"
1900 DATA"[152]READING R.R.[155]","[159]ORIENTAL AVE.[155]","[150]CHANCE[155]","[159]VERMONT AVE.[155]"
1920 DATA"[159]CONNECTICUT AVE.[155]"
1940 DATA"[150]JUST VISITING[155]","[156]ST.CHARLES PLACE[155]","[153]ELECTRIC COMPANY[155]","[156]STATES AVE.[155]"
1960 DATA"[156]VIRGINIA AVE.[155]","[152]PENNSYLVANIA R.R.[155]","[129]ST. JAMES PLACE[155]"
1980 DATA"[158]COMMUNITY CHEST[155]"
2000 DATA"[129]TENNESSEE AVE.[155]","[129]NEW YORK AVE.[155]","[149]FREE PARKING[155]","KENTUCKY AVE.[155]"
2020 DATA"[150]CHANCE[155]","INDIANA AVE.[155]","ILLINOIS AVE.[155]","[152]B & O R.R.[155]"
2040 DATA"[158]ATLANTIC AVE.[155]"
2060 DATA"[158]VENTNOR AVE.[155]","[153]WATER WORKS[155]","[158]MARVIN GARDENS[155]","[150]GO[155] [154]TO[155] JAIL[155]"
2080 DATA"PACIFIC AVE.[155]"
2100 DATA"N. CAROLINA AVE.[155]","[158]COMMUNITY CHEST[155]","PENNSYLVANIA AVE.[155]"
2120 DATA"[152]SHORT LINE[155]"
2140 DATA"[150]CHANCE[155]","PARK PLACE[155]","[154]LUXURY TAX[155]","BOARDWALK[155]","[150]IN JAIL[155]"
2160 DATA GO,P,BLACK,60,2,10,30,90,160,250,30,50
2180 DATA CC,P,BLACK,60,4,20,60,180,320,450,30,50
2200 DATA IT,RR,P,LT. BLUE,100,6,30,90,270,400,550,50,50
2220 DATA CH,P,LT. BLUE,100,6,30,90,270,400,550,50,50
2240 DATA P,LT. BLUE,120,8,40,100,300,450,600,60,50
2260 DATA JV,P,MAROON,140,10,50,150,450,625,750,70,100
2280 DATA U,P,MAROON,140,10,50,150,450,625,750,70,100
2300 DATA P,MAROON,160,12,60,180,500,700,900,80,100
2320 DATA RR,P,ORANGE,180,14,70,200,550,750,950,90,100
2340 DATA CC,P,ORANGE,180,14,70,200,550,750,950,90,100
2360 DATA P,ORANGE,200,16,80,220,600,800,1000,100,100
2380 DATA FP,P,RED,220,18,90,250,700,875,1050,110,150
2400 DATA CH,P,RED,220,18,90,250,700,875,1050,110,150
2420 DATA P,RED,240,20,100,300,750,925,1100,120,150
2440 DATA RR,P,YELLOW,260,22,110,330,800,975,1150,130,150
2460 DATA P,YELLOW,260,22,110,330,800,975,1150,130,150
2480 DATA U,P,YELLOW,280,24,120,360,850,1025,1200,140,150
2500 DATA GTJ,P,GREEN,300,26,130,390,900,1100,1275,150,200
2520 DATA P,GREEN,300,26,130,390,900,1100,1275,150,200
2540 DATA CC,P,GREEN,320,28,150,450,1000,1200,1400,160,200
2560 DATA RR,CH,P,DK. BLUE,350,35,175,500,1100,1300,1500,175,200
2580 DATA LT,P,DK. BLUE,400,50,200,600,1400,1700,2000,200,200
2600 DATAIJ
2620 DATA PAY POOR TAX $15,GO DIRECTLY TO JAIL,ADVANCE TO GO(COLLECT $200)
2640 DATA YOUR BUILDING AND LOAN MATURES COLLECT $150
2660 DATA ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENT
2680 DATAADVANCE TO ILLINOIS AVE.,BANK PAYS YOU DIVIDEND OF $50
2700 DATAGET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACE
2720 DATATAKE A RIDE ON THE READING,GO BACK THREE SPACES,ADVANCE TO BOARDWALK
2740 DATAMAKE GENERAL REPAIRS $25 FOR EACH HOUSE$100 FOR EACH HOTEL
2760 DATA ADVANCE TOKEN TO NEAREST R.R. $ PAY OWNER TWICE RENT
2780 DATA ADVANCE TOKEN TO NEAREST UTILITY ROLL DICE & PAY 10*# SHOWN
2800 DATA GET OUT OF JAIL FREE,GO TO JAIL,ADVANCE TO GO(COLLECT $200)
2820 DATA FROM SALE OF STOCK YOU GET $45,COLLECT $50 FROM EVERY PLAYER
2840 DATA RECEIVE FOR SERVICES $25,PAY SCHOOL TAX OF $150,TAX REFUND COLLECT $20
2860 DATA ASSESSED FOR REPAIRS $40 PER HOUSE $115 PER HOTEL
2880 DATA YOU HAVE WON SECOND PRIZE IN A BEAUTY CONTEST COLLECT $10
2900 DATA YOU INHERIT $100,XMAS FUND MATURES COLLECT $100,PAY HOSPITAL $100
2920 DATA BANK ERROR IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $50
2940 DATA LIFE INSURANCE MATURES COLLECT $100
2960 GOTO13100
2980 PRINT"[147][149] [160][155][165][160][160][165][160][160][165][160][160][165][160][160][152][191][191][191][155][165][160][160][165] [165][153]WW[155][165][160][160][150][165]GTJ[146]"
3000 PRINT"[149][160]FP[160][155][165][160][160][165][150]?[155][160][165][160][160][165][160][160][152][165][160][160][155][165][160][160][165][160] [165][153][176][177][155][165][160][160][154][165] [146]"
3020 PRINT"[149] [160] [155][165][160][160] [160][160][165] [152]B&O[158][165] [165][160][160][155][165][160][160][158] [160][160][165][197][215] [155][146]"
3040 PRINT"[163][163][163][129] [155][207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [155][163][163][163][146]"
3060 PRINT" [129] [155][165] [206][205] [155][160] [146]"
3080 PRINT"[163][163][163][129][163][155][165] [158][206] [155][205] 1- [163][155][163][163][163][146]"
3100 PRINT" [129] [155][165][206][158]C C[155][206] [155] [146]"
3120 PRINT"[163][163][163][163][165][205][158] [206][155] 2- [207][163][163][163][146]"
3140 PRINT"[158]CC[155] [165] [205][206] [158]CC[155] [146]"
3160 PRINT"[163][163][163][129] [155][165] [164][164][164] [164][164][164] [155][163][163][163][146]"
3180 PRINT" [129] [155][165] [167] [155][165] [167] [155][165] [155] [146]"
3200 PRINT"[152][191]PR[191][155][165] [167] [155][165] MONOPOLE[155] [167] [155][165] [167][152][191]SL[191][146]"
3220 PRINT"[191] [191][155][165] [167] [155][165] CBM-64[155] [167] [155][165] [167][152][191] [191][155][146]"
3240 PRINT"[163][163][163][156] [155][165] [163][163][163] [163][163][163] [207][163][163][163][146]"
3260 PRINT" [156] [155][165] [165][150]?[155] [146]"
3280 PRINT"[163][163][163][156][163][155][165] [206][205] [155][163][163][163][146]"
3300 PRINT" [156] [155][165] [150][206] [155][205] [155] [146]"
3320 PRINT"[163][153]EC[155][163][165] [206][150]???[155][206] [154]TAX[155][163][146]"
3340 PRINT" [165] [205][150] [206][155] [165] [146]"
3360 PRINT"[163][163][163][156] [155][165] [205][206] [155][163][163][163][146]"
3380 PRINT" [156] [155][165] [155] [146]"
3400 PRINT"[150][163][155][207][163][163][159] [165] [155][207][163][163][159] [152][207]RR[155][207][163][163][146] [207][163][163][146] [207][163][163][163][146]"
3420 PRINT"[150] [155][165] [165] [165] [165][150]?[155][160][165][160][160][152][165][160][160][155][165][160][160][165][160][160][165] [165] [165]GO [146]"
3440 PRINT"[150] [163][163][163][155][165] [165] [165] [165] [152][191][191][191][154]TAX[155][165] [165][158]CC[155][165] [165]_[192] [146]"
3460 RETURN
3480 PRINT"[155]";LEFT$(CR$,X);LEFT$(CD$,Y);Z$;""
3500 RETURN
3520 DC$(1)=" [157][157][157] [209] [157][157][157] [146]":DC$(2)=" [209][157][157][157] [157][157][157][209] [146]"
3540 DC$(3)="[209] [157][157][157] [209] [157][157][157] [209][146]":DC$(4)="[209] [209][157][157][157] [157][157][157][209] [209][146]"
3560 DC$(5)="[209] [209][157][157][157] [209] [157][157][157][209] [209][146]":DC$(6)="[209] [209][157][157][157][209] [209][157][157][157][209] [209][146]":RETURN
3580 CT=0
3600 R1=INT(RND(1)*6)+1:R2=INT(RND(1)*6)+1:DR=R1+R2
3620 FORI=1TO6:POKEG(I),DR*10:NEXT
3640 PRINT"";LEFT$(CR$,X1);LEFT$(CD$,Y1);DC$(R1)
3660 PRINT"";LEFT$(CR$,X2);LEFT$(CD$,Y2);DC$(R2)
3680 FORI=1TO6:POKEG(I),0:NEXT
3700 CT=CT+1:IFCT<7THENFORDELAY=1TO75:NEXT:GOTO3600
3720 IFR1=R2THENDB=DB+1:GOTO3760
3740 DB=0
3760 RETURN
3780 PRINT"[147]":PRINT
3800 PRINT" COLLECT $200 AS YOU PASS [172][162][172][187][157][157][157][157][157][188][190][188][190][146]"
3820 M(PT)=M(PT)+200:PRINT:PRINT:PRINT
3840 PRINT"HIT ANY KEY TO CONTINUE[146]"
3860 GETW$:IFW$<>""THEN3860
3880 GETK$:IFK$=""THEN3880
3900 RETURN
3920 POKE198,0:PT$=PT$(PL(PT))
3940 IFPT$="P"THEN4180
3960 IFPT$="RR"THEN5160
3980 IFPT$="GO"THENRETURN
4000 IFPT$="U"THEN5880
4020 IFPT$="FP"THEN6500
4040 IFPT$="JV"THENRETURN
4060 IFPT$="GTJ"THEN6780
4080 IFPT$="IT"THEN7000
4100 IFPT$="LT"THEN6960
4120 IFPT$="CC"THEN7040
4140 IFPT$="CH"THEN7520
4160 IFPT$="IJ"THEN8340
4180 PRINT"[147]";TAB(15);"TITLE DEED"
4200 IFGFTHEN4280
4220 PRINT" PLAYER"PT
4240 PO=3-PT
4260 PL=PL(PT):P7=PT
4280 PRINTTAB(20-(LEN(PN$(PL))-1)/2)"";PN$(PL)"[146]"
4300 PRINTLEFT$(PN$(PL),1):QR=PEEK(646):POKE53280,QR:PRINT"[145][145]"
4320 PRINT
4340 PRINT" RENT $";P(PL,2)
4360 PRINT" WITH 1 HOUSE $";P(PL,3)
4380 PRINT" WITH 2 HOUSES ";P(PL,4)
4400 PRINT" WITH 3 HOUSES ";P(PL,5)
4420 PRINT" WITH 4 HOUSES ";P(PL,6)
4440 PRINT" WITH HOTEL $";P(PL,7)
4460 PRINT
4480 PRINT" MORTAGE VALUE $";P(PL,8)
4500 PRINT" HOUSES COST $";P(PL,9);"EACH"
4520 PRINT" HOTELS, $";P(PL,9);". PLUS 4 HOUSES"
4540 IFGFTHENPRINT:PRINT:GOSUB3840:POKE53280,0:RETURN
4560 PRINT:FORI=1TO41:IFC$(PL)=C$(I)ANDI<>PLTHENGOSUB4600
4580 NEXT:GOTO4640
4600 IFPS(I)THENPRINT" "PN$(I)" OWNED BY PLAYER #"PS(I):RETURN
4620 PRINT" "PN$(I)" STILL FOR SALE.":RETURN
4640 PRINT
4660 IFMG(PL)=1THENPRINT" MORTAGED FOR $"P(PL,8)
4680 PRINT" COST $";P(PL,1)
4700 IFPS(PL)=0THEN4800
4720 PRINT" OWNED[146] BY PLAYER"PS(PL):IFH(PL)THENPRINT"WITH";
4740 IFH(PL)<5THENPRINTH(PL)"HOUSES."
4760 IFH(PL)=5THENPRINT" A HOTEL"
4780 GOTO4900
4800 PRINT" YOU HAVE $";M(P7)
4820 PRINT" DO YOU WISH TO BUY THIS PROPERTY";:INPUT" [191][157][157][157]";A$:A$=LEFT$(A$,1)
4840 IFA$="N"THEN5020
4860 IFA$<>"Y"THENPRINT"[145][145]":GOTO4820
4880 PRINT" OK YOU BOUGHT ";PN$(PL)"":M(P7)=M(P7)-P(PL,1):PS(PL)=PT:GOTO5000
4900 OW=P(PL,H(PL)+2):IFPS(PL)=PTTHEN5000
4920 IFMG(PL)THEN5000
4940 P5=PO:P6=PS(PL):GOSUB5040:IFOATHENIFH(PL)=0THENOW=OW*2
4960 M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW:PRINT" YOU OWE $";OW
4980 M(PS(PL))=M(PS(PL))+OW
5000 GOSUB3840:POKE53280,0:RETURN
5020 GOSUB12460:GOTO5000
5040 MG=0:OA=0:PC=0:FORI=1TO41:IFC$(PL)=C$(I)ANDPS(I)=P5THENPC=PC+1:IFMG(I)THENMG=MG+1
5060 NEXT
5080 IFPC=2ANDC$(PL)="BLACK"THENOA=1:RETURN
5100 IFPC=2ANDC$(PL)="DK. BLUE"THENOA=1:RETURN
5120 IFPC=3THENOA=1:RETURN
5140 RETURN
5160 PRINT"[147]":PL=PL(PT)
5180 PRINT"PLAYER"PT
5200 PRINT" [150][216][152] [172][146]"
5220 PRINT" [146]"
5240 PRINT" [206][149][215] [215]"
5260 PRINT
5280 PRINTTAB(20-LEN(PN$(PL))/2)"";PN$(PL)"[146]"
5300 POKE54276,129:POKE54288,17:POKE54290,17
5320 KO=129:FORT=1TO2:FORI=1TO6:POKEG(I),KO:NEXT:FORDL=1TO400:NEXT
5340 FORI=1TO6:POKEG(I),0:NEXT:FORDL=1TO60:NEXT:NEXT
5360 POKE54276,33:POKE54288,33:POKE54290,33
5380 PRINT:PRINT"RENT $25"
5400 PRINT"IF 2 R.R.'S ARE OWNED 50"
5420 PRINT"IF 3 R.R.'S ARE OWNED 100"
5440 PRINT"IF 4 R.R.'S ARE OWNED 200"
5460 PRINT
5480 PRINT"MORTAGE VALUE $100"
5500 PRINT:IFMG(PL)=1THENPRINT"MORTAGED FOR $100":GOTO5860
5520 PRINT"COST $200"
5540 PRINT:FORI=1TO41:IFPT$(I)="RR"THENGOSUB5580
5560 NEXT:GOTO5620
5580 IFPS(I)THENPRINTPN$(I)" OWNED BY PLAYER #";PS(I):RETURN
5600 PRINTPN$(I)" STILL FOR SALE.":RETURN
5620 IFPS(PL)THENPRINT"OWNED[146] BY PLAYER#";PS(PL):GOTO5780
5640 PRINT"YOU HAVE $"M(PT)
5660 PRINT"DO YOU WISH TO BUY IT";:INPUT" [191][157][157][157]";B$:B$=LEFT$(B$,1)
5680 IFB$="N"THENGOSUB12460:GOTO5860
5700 IFB$<>"Y"THENPRINT"[145][145]":GOTO5660
5720 M(PT)=M(PT)-200:PS(PL)=PT
5740 PRINT"OK YOU BOUGHT IT"
5760 GOTO5860
5780 OW=0:O7=0
5800 IFPS(PL)=PTTHEN5860
5820 OW=25:FORI=6TO36STEP10:IFPT$(I)="RR"ANDPS(I)=PS(PL)THENOW=OW*2
5840 NEXT:OW=OW/DV:PRINT"YOU OWE $";OW:M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW
5860 GOSUB3840:RETURN
5880 PRINT"[147]"
5900 PRINT"PLAYER"PT
5920 PRINT" [158][206][163][205] [152][215][209][215] "
5940 PRINT" [158][205][150]^[158][206] [152][171][192][177][192][192][192][201] "
5960 PRINT" [158][165][165] [152][171][192][192][192][192][201][200] "
5980 PRINT" [166] [173][189] ":PRINT
6000 PL=PL(PT)
6020 PRINTTAB(20-LEN(PN$(PL))/2)"";PN$(PL)"[146]"
6040 PRINT:PRINT"IF ONE 'UTILITY IS OWNED PAY 4 TIMES THEAMOUNT SHOWN ON DICE"
6060 PRINT
6080 PRINT"IF BOTH OWNED PAY 10 [214] AMOUNT ON DICE"
6100 D1=INT(RND(1)*6)+1:D2=INT(RND(1)*6)+1
6120 IFDFTHEND1=R1:D2=R2
6140 PRINT:PRINT"MORTAGE VALUE $75":PRINT
6160 IFMG(PL)=1THENPRINT"MORTAGED FOR $75":GOTO6480
6180 IFPS(42-PL)THENPRINTPN$(42-PL)" OWNED BY PLAYER"PS(42-PL):GOTO6220
6200 PRINTPN$(42-PL)" STILL FOR SALE."
6220 PRINT:IFPS(PL)THENPRINT"OWNED[146] BY PLAYER#";PS(PL):GOTO6380
6240 PRINT"YOU HAVE $"M(PT)
6260 INPUT"DO YOU WISH TO BUY IT [191][157][157][157]";B$:B$=LEFT$(B$,1)
6280 IFB$="N"THENGOSUB12460:GOTO6480
6300 IFB$<>"Y"THENPRINT"[145][145]":GOTO6260
6320 PRINT"OK YOU BOUGHT ";PN$(PL)""
6340 M(PT)=M(PT)-150
6360 PS(PL)=PT:GOTO6480
6380 IFPS(PL)=PTTHEN6480
6400 PRINT"DICE SHOW"D1"AND"D2"."
6420 MT=4:IFPS(13)=PS(PL)ANDPS(29)=PS(PL)THENMT=10
6440 IFDF=0THENMT=10
6460 OW=MT*(D1+D2):PRINT"YOU OWE $";OW:M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW
6480 MT=0:GOSUB3840:RETURN
6500 PRINT"[147]"
6520 PRINT" [129]FREE
6540 [153]" (null)LENLENLENLENLENRIGHT$"
6560 [153]" PEEK OPENORTAN^ LEFT$
6580 PRINT" [221] [159][173][192][189] [221]
6600 [153]" LEFT$ VERIFY(null)LENRIGHT$ PEEK
6620 PRINT" [213][192][189] [149][194][152][209][149][200] [173][192][201]
6640 [153]" (null) VERIFYMID$ASC(null) (null)
6660 PRINT" [173][192][152][168][192][192][192][192][192][152][168][192][189]
6680 [153]" PRINT#SPC( SPC(
6700 PRINT:PRINT" [129]PARKING":PRINT
6720 IFPF=0THENGOSUB3840:RETURN
6740 PRINT:PRINT" YOU GET THE FREE PARKING"
6760 PRINT" JACKPOT OF $"FP"!":M(PT)=M(PT)+FP:FP=0:PRINT:GOSUB3840:RETURN
6780 PRINT"[147]";TAB(15);"GO TO JAIL"
6800 IFDB=3THENPRINT:PRINT" FOR ROLLING DOUBLES 3 TIMES IN A ROW!":PRINT
6820 PRINTTAB(16);"[151][176][178][178][178][178][178][178][174]":FORI=1TO5:PRINTTAB(16);"[221][221][221][221][221][221][221][221]":NEXT
6840 PRINTTAB(16);"[173][177][177][177][177][177][177][189]":PRINT:PL(PT)=41:JF=1:DB=0
6860 FORKO=1TO3:FORT=60TO110STEP1.7:FORI=1TO6:POKEG(I),T:NEXT:NEXT
6880 FORDL=1TO10:NEXT
6900 FORT=110TO60STEP-1.7:FORI=1TO6:POKEG(I),T:NEXT:NEXT:NEXT
6920 FORI=1TO6:POKEG(I),0:NEXT
6940 PRINT"";:GOSUB3840:RETURN
6960 PRINT"[147]";TAB(15);"LUXURY TAX":PRINT:PRINTTAB(16);"PAY $75"
6980 PRINT:PRINT:PRINT:M(PT)=M(PT)-75:FP=FP+75:GOSUB3840:RETURN
7000 PRINT"[147]";TAB(15);"INCOME TAX":PRINT:PRINTTAB(16);"PAY $200"
7020 PRINT:PRINT:PRINT:M(PT)=M(PT)-200:FP=FP+200:GOSUB3840:RETURN
7040 CC=CC+1:IFCC>16THENCC=CC-16
7060 PO=3-PT:CC$=CC$(CC):IFCC=1ANDCJ(1)THENCC=CC+1:CC$=CC$(CC)
7080 PRINT"[147] [158]COMMUNITY CHEST":PRINTCC$""
7100 IFCC=1THENCJ(1)=PT
7120 IFCC=2THENGOSUB3840:GOTO6780
7140 IFCC=3THENPL(PT)=1:MF=1:GOSUB3840:GOSUB3780:RETURN
7160 IFCC=4THENM(PT)=M(PT)+45
7180 IFCC=5THENM(PT)=M(PT)+50:M(PO)=M(PO)-50
7200 IFCC=6THENM(PT)=M(PT)+25
7220 IFCC=7THENM(PT)=M(PT)-150:FP=FP+150
7240 IFCC=8THENM(PT)=M(PT)+20
7260 IFCC=9THENGOSUB7440
7280 IFCC=10THENM(PT)=M(PT)+10
7300 IFCC=11THENM(PT)=M(PT)+100
7320 IFCC=12THENM(PT)=M(PT)+100
7340 IFCC=13THENM(PT)=M(PT)-100
7360 IFCC=14THENM(PT)=M(PT)+200
7380 IFCC=15THENM(PT)=M(PT)-50
7400 IFCC=16THENM(PT)=M(PT)+100
7420 GOSUB3840:RETURN
7440 YP=0:FORI=1TO40
7460 IFPS(I)=(PT)ANDH(I)<5THENYP=YP+(40*H(I))
7480 IFPS(I)=(PT)ANDH(I)=5THENYP=YP+115
7500 NEXT:PRINT"YOU PAY $"YP:M(PT)=M(PT)-YP:FP=FP+YP:RETURN
7520 CH=CH+1:IFCH>16THENCH=CH-16
7540 PO=3-PT:CH$=CH$(CH):IFCH=8ANDCJ(2)THENCH=CH+1:CH$=CH$(CH)
7560 PRINT"[147] [150]? ? CHANCE ? ?":PRINTCH$""
7580 IFCH=1THENM(PT)=M(PT)-15:FP=FP+15
7600 IFCH=2THENGOSUB3840:GOTO6780
7620 IFCH=3THENPL(PT)=1:MF=1:GOSUB3840:GOSUB3780:RETURN
7640 IFCH=4THENM(PT)=M(PT)+150
7660 IFCH=5THENGOSUB7920:MF=1
7680 IFCH=6THENGOSUB8000:MF=1
7700 IFCH=7THENM(PT)=M(PT)+50
7720 IFCH=8THENCJ(2)=PT
7740 IFCH=9THENM(PT)=M(PT)-50:M(PO)=M(PO)+50
7760 IFCH=10THENGOSUB8040:MF=1
7780 IFCH=11THENGOSUB8080:MF=1
7800 IFCH=12THENPL(PT)=PL(PT)-3:MF=1
7820 IFCH=13THENGOSUB8120:MF=1
7840 IFCH=14THENGOSUB8160
7860 IFCH=15THENGOSUB7920:MF=1
7880 IFCH=16THENGOSUB8240:MF=1
7900 GOSUB3840:RETURN
7920 PL(PT)=PL(PT)+1:IFPL(PT)>40THENGOSUB13440:PL(PT)=PL(PT)-40
7940 IFPT$(PL(PT))="RR"THEN7980
7960 GOTO7920
7980 DV=1:RETURN
8000 IFPL(PT)>25THENGOSUB13440
8020 PL(PT)=25:RETURN
8040 IFPL(PT)>12THENGOSUB13440
8060 PL(PT)=12:RETURN
8080 IFPL(PT)>6THENGOSUB13440
8100 PL(PT)=6:RETURN
8120 PL(PT)=40:RETURN
8140 RETURN
8160 DF=0:YP=0:FORI=1TO40
8180 IFPS(I)=(PT)ANDH(I)<5THENYP=YP+(25*H(I))
8200 IFPS(I)=(PT)ANDH(I)=5THENYP=YP+100
8220 NEXT:PRINT"YOU PAY $"YP:M(PT)=M(PT)-YP:FP=FP=YP:RETURN
8240 PL(PT)=PL(PT)+1
8260 IFPL(PT)>40THENGOSUB13440:PL(PT)=PL(PT)-40
8280 IFPT$(PL(PT))="U"THEN8320
8300 GOTO8240
8320 MF=1:RETURN
8340 PRINT"[147]"
8360 JT(PT)=JT(PT)+1
8380 PRINT"PLAYER #"PT"IS IN JAIL"
8400 PRINT:PRINT"YOU HAVE BEEN IN JAIL "JT(PT)" TURNS"
8420 PRINT"YOU MAY: 1. PAY $50"
8440 PRINT" 2. USE A 'GET OUT OF JAIL FREE' CARD."
8460 PRINT" 3. TRY TO ROLL DOUBLES."
8480 INPUT"PICK A NUMBER (1,2 OR 3) <RETURN>";I:IFI<1ORI>3THEN8480
8500 IFI=1THENM(PT)=M(PT)-50:FP=FP+50:PL(PT)=11:GOSUB3840:JE=1:RETURN
8520 IFI=2ANDCJ(1)=PTTHENCJ(1)=0:PL(PT)=11:GOSUB3840:JE=1:RETURN
8540 IFI=2ANDCJ(2)=PTTHENCJ(2)=0:PL(PT)=11:GOSUB3840:JE=1:RETURN
8560 IFI=2THENPRINT"YOU DON'T HAVE A CARD":GOTO8480
8580 IFI=3THENGOSUB3580:IFDBTHEN8700
8600 PRINT"YOU DIDN'T ROLL DOUBLES."
8620 IFJT(PT)>2THENPRINT"YOU MUST PAY THE $50":M(PT)=M(PT)-50:PL(PT)=11:JB=1
8640 IFJT(PT)>2THENGOSUB3840:FP=FP+50:RETURN
8660 GOSUB3840:RETURN
8680 IFPL(PT)=11THENGOSUB3840:JE=1:RETURN
8700 PRINT"YOU MADE IT OUT!!!":PL(PT)=11:GOSUB3840:JB=1:DB=0:RETURN
8720 GOTO12780
8730 POKE53280,1
8740 POKE53280,1
8741 PRINT"[147]":IFPFTHENPRINT"MONEY IN FREE PARKING JACKPOT $";FP;""
8760 PRINTTAB(17)"PLAYER 1 HAS $";M(1):PRINTTAB(17)"PLAYER 2 HAS $";M(2);""
8780 PRINTTAB(15);" [146]"
8800 PRINTTAB(15);" [158]OPTIONS [146]"
8820 PRINTTAB(15);" [146]"
8840 PRINT" R = REVIEW PROPERTIES OWNED BY PLAYER"
8860 PRINT" L = LIST ALL PROPERTIES AND OWNERS"
8880 PRINT" B = BUILD HOUSES AND HOTELS"
8900 PRINT" S = SELL PROPERTIES TO OTHER PLAYER"
8920 PRINT" M = MORTAGE PROPERTIES AND SELL HOUSES[157][157]"
8940 PRINT" D = DISPLAY TITLE DEEDS IN COLOR"
8960 PRINT" Q = RETURN TO THE PLAYING BOARD"
8980 PRINT" X = END THE GAME AND TELL US WHO WINS"
8990 PRINT:PRINT"PLAYER";PT"UP."
9000 INPUT"PICK A LETTER AND PRESS RETURN[146] [191][157]";IN$:C$=LEFT$(IN$,1)
9010 POKE53280,0
9020 IFC$="[191]"THEN9000
9040 IFC$="R"THENGOSUB9220
9060 IFC$="L"THENGOSUB9560
9080 IFC$="B"THENGOSUB9860
9100 IFC$="S"THENGOSUB10640
9120 IFC$="M"THENGOSUB11320
9140 IFC$="D"THENGOSUB13380
9160 IFC$="Q"THENRETURN
9180 IFC$="X"THEN12940
9200 GOTO8740
9205 POKE53280,1:PRINT"[147]"
9220 PRINT"REVIEW PROPERTIES FOR WHICH PLAYER":INPUT"(1 OR 2)";PN
9240 IFPN<1ORPN>2THEN9220
9260 POKE53280,1:PRINT"[147]"
9280 PRINTTAB(6)"PROPERTIES FOR PLAYER ";PN
9300 PRINT
9320 FORI=1TO40:PO$="":IFPS(I)=PNTHENPRINTPN$(I);
9340 IFPS(I)<>PNTHEN9480
9360 IFPT$(I)<>"P"THEN9440
9380 PRINTSPC(20-(LEN(PN$(I))-2));" -";:IFH(I)<5THENPO$=STR$(H(I))+" HS"
9400 IFH(I)=5THENPO$=" HOTEL[146]"
9420 PO$=PO$+"/$"+MID$(STR$(P(I,H(I)+2)),2)
9440 IFMG(I)=1THENPO$="- MORTAGED"
9460 PRINTPO$
9480 NEXT
9500 PRINT:IFCJ(1)=PNORCJ(2)=PNTHENPRINT"GET OUT OF JAIL FREE CARD."
9520 PRINT"PLAYER"PN"HAS $";M(PN);""
9540 PRINT:GOSUB3840:POKE53280,0:RETURN
9560 PRINT"[147]"
9580 TT$="NAME OWNER/[157][157][157][157][157][157]#HOUSES":PRINTTT$
9600 FORK=1TO40:IFPT$(K)<>"P"ANDPT$(K)<>"RR"ANDPT$(K)<>"U"THEN9780
9620 PRINTPN$(K)"";TAB(21);
9640 PRINTTAB(33)
9660 P$=STR$(PS(K)):PP$=MID$(STR$(H(K)),2):IFH(K)>4THENPP$="H"
9680 IFPT$(K)<>"P"THENPP$="X"
9700 IFMG(K)THENPP$="MG[146]"
9720 P$=P$+" -"+PP$
9740 IFPS(K)=0THENP$=" NONE"
9760 PRINTP$
9780 IFK=20THENPRINT:GOSUB3840:PRINT"[147]":PRINTTT$
9800 NEXTK
9820 PRINT:GOSUB3840
9840 RETURN
9860 PRINT"[147]"
9880 HO=0
9900 GOSUB 13940
9910 FORI8=1TO41:IFC$=LEFT$(C$(I8),LEN(C$))THENPL=I8:GOTO9920
9915 NEXTI8
9920 P7=PT
9940 P5=P7:GOSUB5040:IFMGTHENOA=0
9960 IFOATHEN10020
9980 PRINT"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";
10000 PRINT" IS MORTAGED.":GOSUB3840:RETURN
10020 PRINT" PROPERTY NAME # OF HOUSES(5=HOTEL)"
10040 HS=0:FORI=PLTOPL+4:IFC$=C$(I)THENPRINTPN$(I)"";TAB(30);H(I):HS=HS+H(I)
10060 NEXT
10080 PRINT:PRINT"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"
10100 PRINT"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)*5)
10120 PRINT
10140 PRINT"YOU HAVE $"M(PT)
10160 PRINT"HOTELS AUTOMATICALLY ADDED AFTER 4TH HOUSE"
10180 PRINT"HOW MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX=((5*PC)-HS):PRINTMX")"
10200 INPUTHN:IFHN>MXTHENGOTO10180
10220 H7=INT(HN/PC):H8=HN-(H7*PC)
10240 IFM(P7)<(HN*P(PL,9))THENPRINT"YOU DON'T HAVE ENOUGH MONEY!":GOTO10180
10260 IFHN=0THENPRINT"OK":GOSUB3840:RETURN
10280 M(P7)=M(P7)-(HN*P(PL,9)):FORE=PLTOPL+4:IFC$=C$(E)THENH(E)=H(E)+H7
10300 NEXT
10320 IFH8THEN10360
10340 GOTO10620
10360 PRINT"YOU HAVE"H8"HOUSES LEFT OVER"
10380 PRINT:F1=0:FORF=PLTOPL+4:IFC$=C$(F)THENF1=F1+1:PRINTF1,PN$(F);" "H(F)
10400 NEXT:PRINT:FORG=1TOH8
10420 PRINT"WHERE DO YOU WANT HOUSE #"G;:INPUTHL
10440 IFHL=HOTHENPRINT"CAN'T":GOTO10420
10445 F1=0
10460 FORF=PLTOPL+3:IFC$=C$(F)THENF1=F1+1:IFF1=HLTHENF9=F
10480 NEXTF
10500 IFF9=0THENPRINT"NO SUCH NUMBER":GOTO10420
10520 H2=0:FORF=PLTOPL+3:IFC$=C$(F)THENIFH(F9)>H(F)THENH2=H2+1
10540 NEXT
10560 IFH2THENPRINT"ILLEGAL DISTRIBUTION OF HOUSES!":GOTO10420
10580 HO=HL:H(F9)=H(F9)+1
10600 NEXTG
10620 PRINT"DONE":GOSUB3840:RETURN
10640 POKE53280,1:PRINT"[147]"
10655 INPUT"WHICH PLAYER WANTS TO SELL (1 OR 2) ";P1
10660 IFP1=0THENGOSUB3840:RETURN
10680 P2=P1+1:IFP2>2THENP2=P2-2
10700 PRINT:PRINT"IS IT A PROPERTY OR RAILROAD/UTILITY?"
10710 PRINT"TYPE P OR R AND PRESS RETURN[146]: ";
10712 POKE198,0
10714 GETQ$:IFQ$="P"ORQ$="R"THEN10740
10716 PRINT" [146][157]";:FORI=1TO200:NEXT
10718 GETQ$:IFQ$="P"ORQ$="R"THEN10740
10720 PRINT" [157]";:FORI=1TO200:NEXT
10730 GOTO10714
10740 IFQ$<>"P"ANDQ$<>"R"THEN10700
10750 PRINTQ$:PRINT:PRINT:FORI=1TO200:NEXT
10752 GETRE$:IFRE$<>CHR$(13)THEN10752
10753 PRINT:PRINT:FORI=1TO200:NEXT
10754 IFQ$="R"THENPOKE53280,0:GOTO11080
10755 IFQ$="0"THENRETURN
10760 GOSUB 13940
10770 FORI6=1TO41:IFC$=LEFT$(C$(I6),LEN(C$))THENPL=I6:GOTO10780
10775 NEXTI6
10780 PRINT"# PROPERTY";TAB(34);"OWNER"
10800 HO=0:CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:PRINTCT" "PN$(I)"";TAB(35);PS(I)
10820 IFH(I)THENHO=1
10840 NEXT
10860 PRINT"WHAT PROPERTY NUMBER DOES PLAYER"P1"WANT":INPUT"TO SELL";TP
10900 CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1
10920 NEXT
10940 IFFF=0THENPRINT"ILLEGAL NUMBER":GOTO10860
10960 IFPS(T4)<>P1THENPRINT"PLAYER #"P1"DOES NOT OWN IT.":GOSUB3840:RETURN
10980 IFHOTHENPRINT"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":GOTO11060
11000 INPUT "WHAT IS THE AGREED SELLING PRICE";SP
11020 M(P1)=M(P1)+SP:M(P2)=M(P2)-SP:PS(T4)=P2
11040 PRINT"PLAYER #"P2"BOUGHT "PN$(T4)"":PRINT"FOR $"SP
11060 PRINT:GOSUB3840:RETURN
11080 PRINT"# RIALROAD/UTILITY";TAB(30);"OWNER"
11100 FORI=6TO36STEP10:N=N+1:PRINTN" "PN$(I)"";TAB(35);PS(I):NEXT:N=0
11120 PRINT" 5 "PN$(13)"";TAB(35);PS(13):PRINT" 6 "PN$(29)"";TAB(35);PS(29)
11140 PRINT"WHAT RAILROAD/UTILITY NUMBER IS FOR SALE":INPUTNM:IFNM=0THENRETURN
11160 IFNM<1ORNM>6THEN11140
11180 IFNM=5ANDPS(13)=P1THENSN=13:GOTO11260
11200 IFNM=6ANDPS(29)=P1THENSN=29:GOTO11260
11220 IFNM>0ANDNM<5THENSN=6+((NM-1)*10):IFPS(SN)=P1THENGOTO11260
11240 PRINT"YOU DON'T OWN IT.":GOSUB3840:RETURN
11260 INPUT"AGREED PRICE";SP
11280 M(P1)=M(P1)+SP:M(P2)=M(P2)-SP:PS(SN)=P2
11300 GOSUB3840:RETURN
11320 POKE53280,1:PRINT"[147]":PRINTTAB(5)"[158]MORTGAGE AND HOUSE SALES"
11330 PRINTTAB(5)"0 RETURN TO MAIN MENU":PRINTTAB(5)"1 MORTAGE PROPERTY
11340 [153][163]5)"2 MORTAGE RAILROAD":[153][163]5)"3 MORTAGE UTILITY"
11360 [153][163]5)"4 LIFT MORTAGE(AT 10% INTEREST)"
11370 [153][163]5)"5 SELL HOUSES"
11380 [133]"PICK A NUMBER (0,1,2,3,4 OR 5) ";GG
11390 [153]:[153]:[153]:[151]53280,0
11400 [139]GG[179]0[176]GG[177]5[167]11320
11420 [139]GG[178]0[167][141]3840:[142]
11440 [145]GG[141]11480,11860,12040,12200,13460
11460 [137]11320
11480 [141] 13940
11490 [129]I6[178]1[164]41:[139]C$[178][200](C$(I6),[195](C$))[167]PL[178]I6:[137]11500
11495 [130]I6
11500 CM[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CM[178]CM[170]H(I)
11520 [130]
11540 [139]CM[167][153]"CAN'T MORTAGE PROPERTIES WITH HOUSES STILL ON THAT GROUP.":[137]11840
11560 [153]"# PROPERTY";[163]26);"OWNER"
11580 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[179][177]C$(I)[167]11640
11600 CT[178]CT[170]1:[153]CT" "PN$(I)"";[163]27)PS(I);:PP$[178]"":[139]MG(I)[167]PP$[178]"MORTAGED"
11620 [153]PP$
11640 [130]
11660 [153]:[153]"WHAT PROPERTY NUMBER IS TO BE MORTAGED";:[133]TP
11680 [139]TP[178]0[167][141]3840:[142]
11700 CT[178]0:[129]I[178]PL[164]PL[170]4:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1
11720 [130]
11740 [139]FF[178]0[167][153]"ILLEGAL NUMBER":[137]11660
11760 [139]PS(T4)[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]3840:[142]
11780 [139]MG(T4)[178]1[167][153]"ALREADY MORTAGED":[137]11660
11800 [153]:[153]"OK":MG(T4)[178]1
11820 [153]"YOU GOT $"P(T4,8)"FOR YOUR MORTAGE.":M(PT)[178]M(PT)[170]P(T4,8)
11840 [141]3840:[142]
11860 [153]"# RAILROAD"[163]26)"OWNER"
11870 RC[178]0:[129]I[178]6[164]36[169]10:[139]PT$(I)[178]"RR"[167]RC[178]RC[170]1
11875 [153]RC" "PN$(I);[163]27);PS(I)
11880 [130]
11900 [133]"WHAT RAILROAD NUMBER WILL BE MORTGAGED";RG
11920 [139]RG[179]1[176]RG[177]4[167]11900
11940 RG[178]6[170]((RG[171]1)[172]10)
11960 [139]PS(RG)[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]3840:[142]
11980 [139]MG(RG)[178]1[167][153]"ALREADY MORTAGED.":[141]3840:[142]
12000 MG(RG)[178]1:[153]"YOU GET $100 FOR MORTAGE.":M(PT)[178]M(PT)[170]100
12020 [141]3840:[142]
12040 U(1)[178]13:U(2)[178]29
12050 [153]"# UTILITY"[163]26)"OWNER"
12060 [129]I[178]1[164]2:[153]I;" ";PN$(U(I));[163]27);PS(U(I)):[130]
12080 [133]"WHAT UTILITY NUMBER WILL BE MORTGAGED";UM
12100 [139]UM[179]1[176]UM[177]2[167]12080
12120 [139]PS(U(UM))[179][177]PT[167][153]"YOU DON'T OWN IT.":[141]3840:[142]
12140 [139]MG(U(UM))[178]1[167][153]"ALREADY MORTAGED.":[141]3840:[142]
12160 MG(U(UM))[178]1:[153]"YOU GET $75 FOR MORTAGE.":M(PT)[178]M(PT)[170]75
12180 [141]3840:[142]
12200 [153]:[153]"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTAGE."
12220 ML[178]0:[129]I[178]1[164]41:[139]PS(I)[178](PT)[175]MG(I)[178]1[167]ML[178]ML[170]1:[153]ML" "PN$(I)""
12240 [130]
12260 [139]ML[178]0[167][153]"YOU HAVE NO MORTAGED PROPERTIES.":[141]3840:[142]
12280 [153]:[133]"WHICH MORTAGE DO YOU WANT TO LIFT";LF
12300 [139]LF[179]1[176]LF[177]ML[167][153]"ILLEGAL":[137]12280
12320 ML[178]0:[129]I[178]1[164]41:[139]PS(I)[178](PT)[175]MG(I)[178]1[167]ML[178]ML[170]1:[139]ML[178]LF[167]FT[178]I
12340 [130]
12360 [153]"THE MORTAGE IS FOR $"P(FT,8)
12380 [153]"YOU MUST PAY $";:PY[178]P(FT,8)[172]1.10:[153]PY
12400 [139]PY[177]M(PT)[167][153]"YOU DON'T HAVE THE MONEY.":[141]3840:[142]
12420 M(PT)[178]M(PT)[171]PY:MG(FT)[178]0
12440 [141]3840:[142]
12460 [139]AF[167]12500
12480 [142]
12500 PL[178]PL(PT):[153]PN$(PL)" WILL NOW BE AUCTIONED"
12520 [153]"TO THE HIGHEST BIDDER"
12540 PO[178]3[171]PT:[153]:HB[178]0:PA[178]PT:AC[178]0:[153]:HB[178]0:PA[178]PT:AC[178]0
12560 PA[178]3[171]PA
12580 [153]"PLAYER"PA"WHAT'S YOUR BID";:[133]BD:BD[178][181](BD):AC[178]AC[170]1
12600 [139]BD[178]0[167][145](AC[177]1)[170]2[137]12660,12560
12620 [139]BD[179][178]HB[167][153]"YOU MUST BID HIGHER THAN"HB"OR BID '0'":[137]12580
12640 HB[178]BD:HR[178]PA:[137]12560
12660 [139]HB[178]0[167]12760
12680 [153]PN$(PL)" GOES TO"
12700 [153]"PLAYER"HR" FOR $"HB
12720 M(HR)[178]M(HR)[171]HB:PS(PL)[178]HR
12740 [142]
12760 [153]:[153]PN$(PL)" HAS NOT BEEN PURCHASED.":[142]
12780 [153]"LOAD":[153]"PLAYER #"PT"IS BROKE!!"
12800 [153]"IF YOU CAN'T RAISE $"[182](M(PT))"THEN YOU ARE OUT OF THE GAME."
12820 [153]"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL YOU FINISH TRYING TO";
12840 [153]" RAISE MONEY"
12860 [141]3840:[141]8740
12880 [139]M(PT)[177][178]0[167][142]
12900 [139]M(PT)[179]0[167][153]"YOU ARE BANKRUPT!!!":PT[178]3[171]PT
12920 [153]" --PLAYER #"PT"WINS!-- ":[128]
12940 [153]"GAME OVER"
12960 [153]"THE WINNER IS ";
12980 [139]M(1)[177]M(2)[167][153]"PLAYER #1 WITH $"M(1)
13000 [139]M(2)[177]M(1)[167][153]"PLAYER #2 WITH $"M(2)
13020 [139] M(2)[178]M(1)[167][153]"NEITHER, IT'S A TIE!"
13040 [153]"PLAYER 1 = $";M(1)
13060 [153]"PLAYER 2 = $";M(2)
13080 [153]
13100 [151]54296,0:[129]I[178]1[164]6:[151]G(I),0:[128]
13120 [129]J[178]832[164]939
13140 [135]I:[151]J,I:[130]
13160 [131] 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0
13180 [131] 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0
13200 [131] 197,185,0,218,153,0,198,185
13220 [131] 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153
13240 [131] 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197
13260 [131] 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96
13280 [142]
13300 [129]P4[178]1[164]2
13320 Y$[178]""[170]PN$(PL(P4))[170][200](" ",18[171]([195](PN$(PL(P4)))[171]2))[170]"WAIT"
13340 MN$[178]"$"[170][202]([196](M(P4)),2)[170]" WAIT":X[178]13:Y[178]2[172]P4[170]3:Z$[178]Y$:[141]3480
13360 Y[178]Y[170]1:Z$[178]MN$:[141]3480:[130]:[142]
13380 [141]13940
13400 P3[178]PL:[129]I[178]1[164]41:[139]C$[178][200](C$(I),[195](C$))[167]GF[178]1:PL[178]I:[141]4180:GF[178]0
13420 [130]:PL[178]P3:[142]
13440 M(PT)[178]M(PT)[170]200:[153]"COLLECTED $200":[142]
13460 [141] 13940
13480 DO[178]0:HN[178]0:[129]I[178]PL[164]PL[170]3:[139]PS(I)[179][177](PT)[175]C$[178]C$(I)[167]DO[178]1
13500 [139]C$[178]C$(I)[167]HN[178]HN[170]H(I)
13520 [130]
13540 [139]DO[178]1[176]HN[178]0[167][153]"YOU DON'T OWN HOUSES ON THESE PROPERTIES":[141]3840:[142]
13560 [153]"# PROPERTY";[163]25);"HOUSES(5=HOTEL)"
13580 CT[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[153]CT" "PN$(I)"";[163]27)H(I)
13600 [130]
13620 [133]"WANT TO REMOVE ALL THESE HOUSES";A$:[139][200](A$,1)[178]"Y"[167]13900
13640 [153]:[133]"WHAT # TO REMOVE A HOUSE FROM.";TP
13660 [139]TP[178]0[167] [142]
13680 CT[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]CT[178]CT[170]1:[139]CT[178]TP[167]T4[178]I:FF[178]1
13700 [130]
13720 [139]FF[178]0[167][153]"ILLEGAL NUMBER":[137]13640
13740 [139]H(T4)[178]0[167][153]"NO HOUSES THERE.":[137]13640
13760 NN[178]0:NH[178]H(T4):[129]I[178]PL[164]PL[170]3:[139]H(I)[177]NH[167]NN[178]1
13780 [130]
13800 [139]NN[167][153]"YOU CAN'T REMOVE THAT HOUSE.":[137]13640
13820 [153]:[153]"OK.":H(T4)[178]H(T4)[171]1
13840 HM[178]P(PL,9)[173]2
13860 [153]"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)[178]M(PT)[170]HM
13880 [141]3840:[142]
13900 HM[178]0:[129]I[178]PL[164]PL[170]3:[139]C$[178]C$(I)[167]HM[178]HM[170](P(PL,9)[173]2)[172]H(I):H(I)[178]0
13920 [130]:[153]"YOU GOT $"HM"FOR YOUR HOUSES":M(PT)[178]M(PT)[170]HM:[137]13880
13940 [137]15000:[143] COLOR MENU
13960 [153] "IN WHAT COLOR GROUP":[153]PG$:[153]:[133]"WHICH ";C$
13980 [129]I6[178]1[164]41:[139]C$[178][200](C$(I6),[195](C$))[167]PL[178]I6:C$[178]C$(I6):[137]10780
14000 [130]I6
14020 [153]"ILLEGAL GROUP":[137]13940
14040 [142]
15000 [151]53280,1:[153]"LOAD"[163]14)"COLOR GROUP"
15020 [153]:[153]"CHOOSE THE DESIRED PROPERTY COLOR GROUP"
15030 [153][163]12)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
15040 [153][163]12)"FN1 ) BLACK THEN"
15060 [153][163]12)"CONT 2 ) LIGHT BLUEWAIT"
15080 [153][163]12)"CLR 3 ) MAROON WAIT"
15100 [153][163]12)"FOR 4 ) ORANGE WAIT"
15120 [153][163]12)" 5 ) RED WAIT"
15140 [153][163]12)"SYS 6 ) YELLOW WAIT"
15160 [153][163]12)" 7 ) GREEN WAIT"
15180 [153][163]12)" 8 ) DARK BLUE WAIT"
15200 [153]:[153]" PICK A COLOR NUMBER AND PRESS RETURNWAIT ";
15210 [151]198,0
15220 [161]C$:[139]C$[177][178]"1"[175]C$[179][178]"9"[167]15238
15230 [153]" WAITCMD";:[129]I[178]1[164]200:[130]
15235 [161]C$:[139]C$[177][178]"1"[175]C$[179][178]"9"[167]15238
15237 [153]" CMD";:[129]I[178]1[164]200:[130]:[137]15220
15238 [153]C$;
15239 [161]RE$:[139]RE$[179][177][199](13)[167]15239
15240 [153]:[153]:[129]I[178]1[164]300:[130]:[151]53280,0
15241 [139]C$[178]"1"[167]C$[178]"BLACK":[142]
15260 [139]C$[178]"2"[167]C$[178]"LT. BLUE":[142]
15280 [139]C$[178]"3"[167]C$[178]"MAROON":[142]
15300 [139]C$[178]"4"[167]C$[178]"ORANGE":[142]
15320 [139]C$[178]"5"[167]C$[178]"RED":[142]
15340 [139]C$[178]"6"[167]C$[178]"YELLOW":[142]
15360 [139]C$[178]"7"[167]C$[178]"GREEN":[142]
15380 [139]C$[178]"8"[167]C$[178]"DK. BLUE":[142]
15400 [137]15000